option explicit	
Sub Main
dim a as double, b as double, c as double, o as double, p as double, s as double
a = inputbox("Unesi stranicu a")
b = inputbox("Unesi stranicu b")
c = inputbox("Unesi stranicu c")
o = a + b + c
s = o/2
p = sqr(s*(s - a)*(s - b)*(s - c))
msgbox(o)
msgbox(p)

End Sub